home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls085.solintel.Z / tls085.solintel / lib / vtcl / tests / cberror3.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  1.8 KB  |  76 lines
  1. # CVS $Id: cberror3.tcl,v 1.2 1995/04/26 16:38:38 zibi Exp $
  2. #
  3. # This tests the error callback routines
  4. # 
  5.  
  6. #
  7. # This handles the error without generating another error.
  8. proc errorCB {cbs} {
  9.     set target [keylget cbs widget]
  10.     set dialog [keylget cbs dialog]
  11.     set result [keylget cbs result]
  12.     set callback [keylget cbs callback]
  13.  
  14.     set str "Handling callback for <$target>"
  15.     set str "$str \n  result is <$result>"
  16.     set str "$str \n  callback is <$callback>"
  17.  
  18.     set txt [VtGetValues $dialog -userData]    
  19.     VtSetValues $txt -value $str
  20. }
  21.  
  22. #
  23. # This handles an error, but generates an error of it's own
  24. #
  25. proc errorErrorCB {cbs} {
  26.      echo "I'm dying...."
  27.  
  28.      # This generates an error
  29.      continue
  30. }
  31.  
  32. proc generateErrorCB {errStr cbs} {
  33.      # This generates an error
  34.      error $errStr
  35.  
  36.      # This statement isn't reached
  37.      echo "here"
  38. }
  39.  
  40. proc msgCB {errStr cbs} {
  41.     set target [keylget cbs widget]
  42.     set msg [VtMessageDialog $target.msg -message $errStr \
  43.          -errorCallback errorCB -okCallback "generateErrorCB inMsgDialog" ]
  44.     VtShow $msg
  45.  
  46.     generateErrorCB msgCB
  47. }
  48.  
  49. global txt
  50.  
  51. set app [VtOpen error]
  52.  
  53. VtSetAppValues $app -errorCallback errorCB
  54.  
  55. set dlog [VtFormDialog $app.form -errorCallback errorCB \
  56.       -okCallback "generateErrorCB {OK buton} " \
  57.       -wmCloseCallback "generateErrorCB wmCloseCallback" ]
  58.  
  59. set errTxt [VtText $dlog.txt -rightSide FORM -rows 5 -columns 40 \
  60.         -wordWrap -verticalScrollBar on ]
  61.  
  62.  
  63. VtSetValues $dlog -userData $errTxt
  64.  
  65. set txt $errTxt
  66.  
  67. VtPushButton $dlog.but1 -label "Handle Error" -callback "generateErrorCB Handle"
  68. VtPushButton $dlog.but3 -label "Another Dialog" -callback "msgCB TEST"
  69.  
  70. VtPushButton $dlog.but2 -label "Error with Error" \
  71.          -errorCallback errorErrorCB  -callback "generateErrorCB bad"
  72.  
  73. VtShow $dlog
  74.  
  75. VtMainLoop
  76.